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BEGIN 
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'@ 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS URESER VED 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'® ONLY Eon SE te ka WITH THE TERMS OF SUCH at AND WITH Ru, 


; 0 
!* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


oe 
® 
tt 
t 
® 
& 
a 
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® 
ie TRANSFERRED. : 
® 
® 
* 
® 
wn 
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* 
® 
w 
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!* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
: aORPORAT I One NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


is DIGITAL ASSUMES NO RESPONSIB 


IBILIT 
!# SOFTWARE ON EQUIPMENT WHICH IS N 


Y FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 
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FACILITY: RMS32 INDEX SEQUENTIAL FILE ORGANIZATION 
ABSTRACT: 


MODIFIED BY: 


' : 
i 
i : 
; 
} This module handles the allocation of buckets and their formatting | ; 
| 
i ENVIRONMENT : | 3 
VAX/VMS OPERATING SYSTEM | 
= ; 


AUTHOR: D. H. Gillespie 28-Jul-1978 | 


COOCCSCOCOOCOOOCOCOOCOOOOOCOOOOOCOOCOOCOOOCOOCOOOoOOoOO 
pejojeleleleleleleleleoleoleoleleolelel ele el el elelelele oleae alalo) 
PUPP BS BB BB BB AAI 


DOONAN WN O OONOAUNE AR COONOUE WOO 


Se eee eee ees eaess 
wane OWONO US WwrO” 


3 1 
: 1 
3 1 
; 1 
: 1 
; 1 
; 1 
H 1 
: 1 
; 1 
3 1 
; 1 
; 1 1 
3 1 
3 § 1! 
: 4 1! 
; 5 1! 
; 1} 
; ; 1! 
3 8 1! 
: 7] 1! V03-009 MCNO015 Maria del C. Nasr 04-Apr-1983 
; ? ’ Modify calling syntax to RM$ALLOC3 to match new Linkage. 
5 § a. v03-008 TMKO002 Todd M. Katz 02-Apr-1983 
; 1; If this ISAM file is being BI Journalled, then in 
3 4 1: RMSAL_FRMT_BKT, after formatting the bucket, move the formatted 
: 5 7! portion into the BI Journal record buffer controlled by 
; $ : the B1 BDB associated with the BDB for the new bucxet. 
3 8 1! V03-007 MCNO014 Maria del C. Nasr 31-Mar-1983 
3 , } More Linkages reorganization 
é : VO5- N aria de . Nasr -Feb- 

1 0060 1! 03-006 MCNO013 Maria del C 24-Feb-1983 
; ; od } Reorganize Linkages. 
5 0065 1! V03-005 KBT0488 Keith B. Thompson 2-Feb-1983 
; 4 2268 : Raise the file lock when doing an extend 
ie ) 4 0066 1! v03-004 MCNO012 Maria del C. Nasr 08-Nov-1982 
; 68 0067 1! Add new extended quantity to TOTAL_ALLOC field in 
; 0068 1! the area descriptor. Also clear AREASL_NXBLK when 
3 4 544 : the next extend is used. (Routine GET_VBN) 
a g971 1! v03-003 KBT0153 Keith B. Thompson 21-Aug-1982 
5 6 BR76 : Reorganize psects 
ee Bae 1! v03-002 KBT0111 Keith B, Thompson 6-Aug-1982 
3 4 15 : } No need to stuff the sifb anymore 
ae 6079 1! v03-001 TMKO001 Todd M. Katz 12-Jun-1982 
; #79 B078 1} Fix Linkage bug by describing the external routine 
; Hi $44 : } RMSCHKSUM with ADDRESSING_MODE (RELATIVE). 
3 ¢ 081 1! v02-010 TMKO001 Todd M. Katz 09-Feb-1982 
ca 0 $ 1! Fix Linkage bug by describing the external routine 
: : . i : RMSMAKESUM with ADDRESSING_MODE (RELATIVE). 
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v02-009 kp 0002 gter Lieberwirth 23-Nov-1981 


Fix bug in v02-008. Keep lock on area descriptor where 
commentary says to... 


v02-008 kpl0001 Peter Lieberwirth 11-Aug-1981 
Add routines to reclaim buckets off the 
AVAIL List. (space reclamation) 


VO2-007 MCNO011 Maria del C._Nasr 26-May-1981 
Add code to format prologue 3 buckets. 


- «€ 
Oo 
mm 


v02-006 BELORAAT Frederick E. Deen, Jr. 23-Jul-1980 


! 
' 
' 
! 
' 
i 
' 
i 
' 
' 
! 
' 
s code was reformatted to adhere to RMS standards 
' 


leanne 


LIBRARY "RMSLIB:RMS'; 
REQUIRE ‘RMSSRC:RMSIDXDEF'; 


define default psects for code 


PSECT 
CODE = RMSRMS3(PSECT_ATTR), 
PLIT = RMSRMS3(PSECT_ATTR); 
Linkage 


| 
| 
LINKAGE 
ALLOC3, 


ABREG 7, 
t RELEASE. 


RLSGET 

RLS$FOR_ REC BKT 
RLS$GET" VBN 
RLSLOCR AREA 


RLSCHECK_FOR_RO 
Forward Routines 


FORWARD ROUTINE 
RMSLOCK_AREA : RLSLOCK_AREA; 


External Routines 


EXTERNAL ROUTINE 
RMSALLOC3 : RLSALLOC3, | 
RMSCACHE : RLSCACHE, 
RMS CHK SUM : RLS CHK SUM, | 
RMSLOWER_LOCK : RLSRABREG, 


) : GLOBAL (COMMON_RABREG, . .5DB, mye -RECID = 6), 
) : GLOBAL (COMMON “RABREG, R ~1DX X_DFN), 

: GLOBAL (COMMON-RABREG, 
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: GLOBAL COMMON. RABREG, R -BDB, VBN = 6, AREA_DESC = 7); 
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voe-00 GET_BKT er8een 138s TSbki13 «HANS Seeinasacret: 632, ~~ ao 
XSBITL 'GET_BKT' 
ROUTINE GET_BKT ( AREA_NO ) : RLSGET_BKT = 


<z 
oz 
Bia 


'+4 
' 


: FUNCTIONAL DESCRIPTION: 


This routine attempts to reclaim a bucket from the area AVAIL List. 
it updates the area descriptor and writes it out to the disk if 
necessary. It is called only by RECLAIM_BKT. 


CALLING SEQUENCE: 
GET_BKT (.AREA_NO); 


INPUT PARAMETERS: 
AREA_NO = area from which to reclaim the bucket 


_ 
PEXAEQQEAEXAEMAMMINAMIAGISISSIn 
MEW —OOODNAOUE WO 


BBR EEE EES FW NANI AINIAIPPINPOPONINNNDY) 2 9 PO OO ns ese 


1 

1 

4 

1 : : 

1 ' 

1 ! 

1 ! 

1 ' 

1 0 ' 

1 ' 

: i 

1 ‘ 

1 ! 

1 0 : 

1 0 ' 

1 0 : 

1 0 ' IMPLICIT INPUTS: 

166 0 } IRAB - address of internal RAB 

167 02 ; IFAB - address of IFAB needed for 1/0 and prologue version 
168 02 ; IMPURE = address of impure region(needed for 1/0) 

199 BS IDX_DFN = index descriptor to get key of reference 

171 $5 ' OUTPUT PARAMETERS: 

V6 85 NEXT_RECID = value of lowest record id permitted for reclaimed bucket 
174 03 ! IMPLICIT OUTPUTS: ; 

175 0 : IRABCIRB$L_NXTBDB) - address of BDB describing new reclaimed and 
178 8 partially formatted bucket. 

178 8S ' ROUTINE VALUE: 

+4 8 various errors, including those from CACHE and RELEASE 

181 8 ' SIDE EFFECTS: 

136 ; If there is a reclaimable bucket, it is reclaimed. 

V3 0 The area descriptor is updated and written to the disk. 

185 6 len 

186 0 

187 8 BEGIN 

188 2 

189 02 EATERNAL REGISTER 

191 RODE STR. 

198 COMMON_RAB_STR; | 
194 0 GLOBAL REGISTER 

195 AREA_DESC = 7 : REF BBLOCK; 


Lock the area descriptor 

RETURN_ON_ERROR( RMSLOCK_AREA( .AREA_NO )); 

Check the available List for reclaimable buckets 
IF .AREA_DESCCAREASL_AVAIL] NEQU 0 

THEN 


LSSeTs 
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05 


Oo 
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L 
BUCKET : REF BBLOCK, 
AVAIL_VBN, 

NEXT_QBN; 


BEGIN 


GLOBAL REGISTER 
R_BKT_ADDR_STR; 


' Release the area Coger ioter with keep lock, so no one else tries 
to get our reclaimed VBN. 


| 
RETURN_ON_ERROR( RMSRELEASE(RLSSM_KEEP_LOCK) ); 
Remember the available bucket 
AVAIL_VBN = .AREA_DESCCAREASL_AVAILI; 
Get the reclaimed bucket in the cache 
RETURN_ON_ERROR( RMSCACHE( .AVAIL_VBN 
-BBLOCRL. IRABCIRBS$L_CURBDB] ,BDB$W_NUMB, 
CSHSM_LOCK)); 
| 
| 
| 


' Get from the reclaimed bucket the VBN of the next reclaimable bucket 
and the lowest record ID usable for this incarnation of the bucket. 


BUCKET = .BDBCBDBSL_ADDR); 
| 
| 
| 
| 
| 
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NEXT_VBN = .BUCKETCBKTSL_NXTBKT); 
IF .IFABCIFBSB_PLG_VER) LSSU PLGSC_VER_3 
NEXT_RECID = .BUCKETCBKTSB_NXTRECID) 
NEXT_RECID = .BUCKETCBKTSW_NXTRECID); 
END; ! of global register definition 
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! Release the reclaimed bucket, freeing space in the cache for the 
area descriptor again. 


RETURN_ON_ERROR( RMSRELEASE(O) ); 
Get the area descriptor again 
RETURN_ON_ERROR( RMSLOCK_AREA( .AREA_NO )); 


‘ Update the area descriptor avail Listhead, calculate the new bucket 
' checksum, and write the modified area descriptor back to disk. 


#* DO WE NEED TO BACK OUT THE AREA DESCRIPTOR IF THE SPLIT FAILS? ** 
AREA_DESCCAREASL_AVAIL] = .NEXT_VBN; 
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RMS.SRCIRMSALLBKT.B32; (3 


a 
nm 
aa 


BKT 


RMSMAKSUM( .BDBCBDBSL_ADDR] ); 


BDBFBDBSV_VAL = 1; 
BDBCBDB$V_DRT) = 1; 


RETURN_ON_ERROR( RMSRELEASE( RLSSM_WRT_THRU )); 
BEGIN 


GLOBAL_REGISTER 
R_BKT_ADDR_STR; 


' Now, get a free buffer to verees the new bucket. Note that we 
med bucket again because we saved 


Wr OVONOUSWN—OO@ 
AWA AIANNIAAAI AANA WANN NANION 


H & 

; 

3 0 

3 0331 i 

b338 

3 0334 4 

; OR8e 

3 0 : 4 
3 0338 4 ' don’t need to read in the recla 

3 § 8 i ? everything we needed from it the Last time it was here. 

s P 0341 4 RETURN_ON_ERROR( RMSCACHE( .AVAIL_VBN 

: P 0 4g 4 *BBLOCRL. IRABCIRBSL CURBDB) ,BDBSW_NUMB), 

; 9 43 4 CSHSM_NOREAD OR CSHSM_LOCK)S; 

3 0345 3 END; ! of global register definition | 
; g 1 9 4g TRABCIRBSL_NXTBDB) = .BDB; | 
; 286 0348 BDBCBDB$V_VAL) = 1; 

: 287 0349 
; 288 0350 RETURN 1; 

; 289 0351 | 
. £ 0326 END 

: 291 035 | 
3 944 0354 ELSE 

3 $2 0355 

3 94 0356 BEGIN 

: 295 0357 

; 296 0358 ; ' Release the area descriptor after all 

: 297 0359 ! 

; 298 0360 RETURN_ON_ERROR( RMSRELEASE (0)); 

: 299 0361 

; 300 Bars RETURN 0; 

3 Ha 036 

; 30 0364 § END; 

; 0365 

; 04 0366 1 END; 


ITLE RNSALLBKT | 
DENT \v04-000\ | 
.EXTRN RMSALLOC3, RMSCACHE 
"EXTRN RMSCHKSUM, RMSLOWER_LOCK | 


“EXTRN RMSMAKSUM, RMSRAISE~LOCK 
“EXTRN RMSRELEASE 


-PSECT RMSRMS3,NOWRT, GBL, PIC.2 


OOAC 8F BB b0000 GET_BKT:PUSHR #*M<R2,R3,R5,R7> ; 0211 
4 C2 00004 SUBL2 #4, SP ; 
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mete 


; Routine Size: 


GET_BKT 
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14 AD BC BBG 
00g 39 900% 
18 A4 D0 0003C 
08 AO D0 00040 
0087 CA 91 00044 
06 1E 00049 
06 AO 9A 00048 
04 11 OOO4F 
06 AO 3c 00051 
53 D4 00055 
00006 30 00057 
50 €9 OOOSA 
18 AE be 00050 
0000V 30 00060 
04 CO 00063 
50 €E9 00066 
55 DO 00069 
18 AG b° 0006D 
00006 30 00071 
03 88 00074 
02 ° 00078 
00006 89 gare 
20 AJ DO 00081 
05 be 00085 
14 AO C 00088 
6E be 0008C 
ore 39 sig 
a0" £9 009 
81 88 00099 
1 DO 0009D 
OA 11 4 
53 be OOA 
0000G 30 O00A4 
20 E9 OO0A7 
0 D4 OOOAA 
04 CO OOOAC 
OOAC 8F BA Boat 


RMSRMS3 + 0000 
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YaXet! Bliss-32 V4.0-74 
RMS. SRCIRMS3ALLBKT .B32; 
AREA_NO 
RMSLOCK AREA 
#4, SP 
stATUs, 4$ 
(AREA_DESC) 
1$ 
6$ 
#4, R3 
RMSRELEASE 


TATUS, 5$ 
RARER DES 


C), AVAIL_VBN 
), RO 


eo 


“RDMNcCe ww 


RMSRELEASE 
ATUS, 7$ 

AREA_N 

RISLOCK AREA 


STATUS, 7$ 
NEXT VBN, 8(AREA_DESC) 
24 (BBB) RS 


R 
RMSRELEASE 
STATUS, 7$ 


#4, SP 
#°M<R2,R3,R5,R7> 
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So 


ZSBTTL_ ‘FORMAT BKT' 
ROUTINE FORMAT_BKT (AREA_NO, RECORD_ID, NO_BYTES) : RLSFOR_REC_BKT = 


144 
; 


! 
FUNCTIONAL DESCRIPTION: 
This routine begins the bucket formatting process. It is called by 
RECLAIM_BKT and AL_FRMT_BKT. 


CALLING SEQUENCE: 
FORMAT_BKT( AREA_NO, RECORD_ID, NO_BYTES ); 


! INPUT PARAMETERS: 
AREA_NO 


- area from which to reclaim the bucket 
RECORD_ID - lowest record ID allowable for this bucket 
NO_BYTES - size in bytes of bucket to format 


IMPLICIT INPUTS: 
IFAB - address of internal FAB 
IRAB - address of internal RAB 
IDX_DFN = index descriptor to get key of reference 


OUTPUT PARAMETERS: 
None 

IMPLICIT OUTPUTS: 
None 

ROUTINE VALUE: 


success 


SIDE EFFECTS: 


i 
i 
i 
i 
i 
i 
' 
i 
1 
i 
i 
i] 
! 
i 
i 
i 
i 
i 
i 
i 
i 
1 
i 
i 
i 
i 
i 
bucket partially formatted (see code) 
le 


BEGIN 
LOC 
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AL 

BUCKET : REF BBLOCK; 

EXTERNAL REGISTER 
COMMON_RAB_ STR, 

R_1DX_DBFN_STR; 


GLOBAL REGISTER 
COMMON_10_STR; 


BUCKET = .BBLOCKC.IRABCIRBSL_NXTBDBJ, BDBSL_ADDRI; 

CHSFILL(O, .NO_BYTES, .BUCKET); 

BUCKETCBKT$W_ADRSAMPLE) = .(BBLOCKC.IRABCIRBSL_NXTBDBJ, BDBSL_VBNJ)<0, 16>; 
BUCKETCBKT$W_FREESPACE) = BKT$C_OVERHDSZ; 

IF .IFABCIFB$B_PLG_VER] LSSU PLGS$C_VER_3 
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77 bytes, Routine Base: RMS$RMS3 + 00B4 


; Routine Size: 


01 
RMSALLBKT 16-S 
v0e-000 RECLAIM_BKT 14-5 


1 
20-1384 04:36:18 Axe tt Bliss-32 V4.0-74 Page RM5 


1 
RMS .SRCIRMSALLBKT.B32; (5), 


<= 
Oo 
> 


| 
79 439 ZSBITL ‘RECLAIM _BKT‘ | H 
sy re ROUTINE RECLAIM_BKT (AREA_NO) : RLSFOR_REC_BKT = ; 
&¢ 44 '++ ; 
4 44 ; | : 
4 444 ! FUNCTIONAL DESCRIPTION: | $ 
85 445 : This routine serves as the high level control routine for bucket : 
58 pees : reclamation. It calls the routine GET_BKT, which handles reading ; 
8 Ree ' and updating the area descriptor if necessary. This requires : 
88 448 : that the reclaimed bucket be read, in order to get the VBN of | : 
89 0449 : the next reclaimable VBN. ay hE FORMAT_BKT is called to begin ; 
ay Bees the process of formatting the bucket. : 
9 Bees : Note that this code will run faster if at least three buffers are ; 
9 045 : available. One is used for CURBDB, one for the area descriptor, : 
94 0454 : and one for NXTBDB. CURBOB represents the bucket being split, . 
4 Beee and NXTBDB represents the new bucket being split into. : 
97 0457 ' CALLING SEQUENCE: F 
398 0458 : RECLAIM_BKT( .AREA_NO ); ; 
399 0459 : : 
400 0460 ! INPUT PARAMETERS: 3 
rt't bees } AREA_NO = area from which to reclaim the bucket ; 
40 bc63 ! IMPLICIT INPUTS: : 
404 0464 ! IRAB - address of internal RAB ; 
405 0465 : IFAB - address of IFAB needed for 1/0 and prologue version : 
06 0466 : IMPURE = address of impure region(needed for 1/0) : 
: IDX_DFN = index descriptor to get key of reference : 
0468 } . 
; 
i ; 
i ; 
i ; 
i ; 
i ; 
i ; 
i ; 
i ; 
i ; 
i ; 
i ; 
I~ 3 
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4 

4 

408 

409 0469 ' OUTPUT PARAMETERS: 

410 0470 None 

411 0471 
tig 047 IMPLICIT OUTPUTS: : . 
41 04 IRABLIRB$L_NXTBDB] - address of BDB describing new reclaimed and 

414 0474 partially formatted bucket. 

415 0475 

416 0476 ROUTINE VALUE: 

417 0477 success or failure 

418 0478 
419 0479 SIDE EFFECTS: 

420 0480 None, see GET_BKT. 

. 1 Ree) 

4 « was 

424 bee BEGIN 
425 re $4 
a a a TT 
428 488 COMMON_RAB_STR; 

oe) 489 

430 490 GLOBAL REGISTER 

431 491 COMMON 19 STR 

43¢ 49 NEXT_RECID = 6; | 
43 49 

434 494 LOCAL 

435 


STATUS; 


see 


tu? 


Pete Ge Se Ge Se Ge Se ee Se Oe Se Se Se Se Ge Se Se Se Se Se ee 


ee ee ee ee et 
PAD SISIVIVIVA LE 
NOULSWN—OOW 


; Routine Size: 


RECLAIM_BKT 


| 
2 


0 
1 
1 
1 
1 
1 
1 
1 
1 


42 bytes, 


NOUS WN SOO SNAUE WN" 


1foSeoct9Re 01:86:15 


AX-11 Ol isan 3e v4.0 
RMS .SRCIRMSALLBKT. g35 


Go try to reclaim a bucket 
STATUS = GET_BKT( .AREA_NO ); 


IF .STATUS 
THEN 
BEGIN 
Format the new bucket and return to caller 
FORMAT_BKT( .AREA NO. .NEXT_R 
-BBLOCK 1RABEIRBSL. Te ORBDBI, BDBSW_NUMB] ); 
RETURN 1; 
END 
ELSE 


RETURN .STATUS; 


END; ; 


0050 8F 8B 00000 RECLAIM_BKT: 
PUSHR HOMERG gro 
0c AE pp 00004 PUSHL AREA 
FEF5 30 00007 BSBW CET BRT 
5E 04 C0 BO00A ADDL2 #4, SP 
1 0 €9 0000D LBC TATUS, 1$ 
50 20 Ad D0 00010 OVL 2(IRAB), 20 
7E 14 AO 3C 00014 MOVZWL 20(RO), -(SP) 
56 DD 00018 PUSHL NEXT RE D 
14 AE DD OOOIA PUSHL AREA~NO 
94 19 001D BSBB_ ss FORMAT _BKT 
5E Cc C O001F ADDL2 #12, SP 
50 1 D0 000 é MOVL a 
0050 8F BA 00025 1$: POPR #*M<R4,R6> 
05 00029 RSB 


Routine Base: RMS$RMS3 + 0101 


] 
F 11 | 
RMSALLBKT 16-Sep-1984 01:36:1 AX-11 Bliss-32 V4.0-74 Page 14. 
vou~000 CHECK _FOR_ROOM 1381382 $4:08:13 — ERms|SReSRASac ext 032; O° 66) | v04 
; 45 18 1 XSBTTL 'CHECK_FOR_ROOM' | ; 
; 46 1 1 ROUTINE CHECK_FOR_ROOM : RLSCHECK_FOR_RO = : 
: te i les | : 
: 46 ; 1 i ; 
; 464 1 ! FUNCTIONAL DESCRIPTION: 3 
; 465 > 2 = This routine checks for room in current extent. If there is room, : 
; $38 : 2:3a it updates the area descriptor and writes it out to the disk returning 3 
; 46 § 1! the VBN to use. 3 
; 468 B2 1! 3 
; 469 528 1 ! CALLING SEQUENCE: H 
; 470 9 1! CHECK_FOR_ROOM() ; 
3; 471 Be 3 
3 tf 531 1 =! INPUT PARAMETERS: $ 
: 47 5 § 1! None 3 
3 474 5 1! 3 
3; 475 534 1°! IMPLICIT INPUTS: 3 
; 476 535 1! - address of BDB for area descriptor's buffer ; 
: ria 3 § ! AREA_DESC - address in memory of area descriptor | : 
: 479 0538 1 | OUTPUT PARAMETERS: : 
; 480 0539 1! None 3 
; «64481 0540 1! 3 
3 rey 0541 1 =! IMPLICIT OUTPUTS: 3 
; 48 R206 1! VBN - number of VBN to use for bucket : 
3; 484 0545 1! f equal to zero, no room 3 
; 485 0544 1! 3 
; 486 0545 1 ! ROUTINE VALUE: 3 
; 487 B28 1! various errors from RMSRELEASE ié 
; 488 Bee 1! 3 
; 6489 548 1 ! SIDE EFFECTS: : 
; 490 0549 1! If there is room in current extention 3 
: <3) Bees } the area descriptor is updated and written to the disk. : 
aoe iS 3 
i 495 0554 BEGIN ; 
: 499 bag LOCAL ; 
: $38 b23e NO_VBN; : 
; 500 0559 EXTERNAL REGISTER | ; 
; 501 0560 COMMON _RAB_STR, PY 
; 206 bee) R_BDB_STR, 3 
3; 3 296 AREA_BESC = 7 =: REF BBLOCK, 3 
; ene 8207 VBN = 6; : 
; 206 §3ee NO_VBN = .AREA_DESCCAREASB_ARBKTSZ); ! number of blocks needed : 
; $08 0367 VBR = 0; : 
; 09 568 ' There is room when the number used and the number needed is less than ; 
: 10 569 ' or equal to total # in extent. 3 
anit Hal 3 | 
; 18 276 if (AREA_DESCCAREASL USED) + .NO_VBN) LEQU .AREA_DESCCAREASL_CNBLK} | ; 
: 515 bah BEGIN ; 


11 
RMSALLBKT 18-Sep-1986 01:36:1 AX-11 Bliss-32 V4.0-74 p 1 
voe-000 CHECK_FOR_ROOM 14- 300-1 38e 94559513 RMS. SRCJRM3ALLBKT.B32; rt 


~~ 
53 
ee 


; 536 0595 1 


: 318 if | ; 
3 } 1 update # used : 
3 8 4 AREA _DESCCAREASL_USED] = .AREA DESCCAREASL USED] + .NO_VBN; | . 
3 ? 4 VBN = ,AREA_DESCTAREASL _NXTVBNI; ' JBN to be used : 
5 § 1 update next vbn to use | : 
; 4 2 g ate A_DESCCAREASL_NXTVBN] = «AREA_ DESCCAREASL _NXTVBN) + .NO_VBN; | : 
3 é 5 584 MAKSUM(.BD CBDBSL_ ADDR)); | recalculate checksum. § 
: $ 585 SDBCB BDBSV_VAL 1; ! write out updated area descriptor 3 
3 ; 3 2 $ BDB BDBSV_ DRTJ = 1; : 
; 3 3 8 RETURN RMSRELEASE( RLS$M_WRT_THRU ) ; 
: ; 1 590 END; 3 
3 ; 591 3 
3 286 RETURN 1 3 
3 059 : 
; 535 0594 1 END; ! end of routine CHECK_FOR_ROOM : 
2C BB 00000 CHECK_FOR 200M: : 
POSHR #*M<R2,R3,R5> 3; 0519 3 
51 03 A7 9A 00002 MOVZBL 3 CARE. DESC), NO_VBN ; 0565 3 
56 D4 00006 CLRL : 0566 3 
50 51 14 A? C1 00008 ADDL3 ZOCAnEA DESC), NO_VBN, RO 3; 0572 
10 A? 50 D1 0000D CMPL , 16(AREA_DESC)~ ; 
1F 1A 00011 BGTR ; 
14 A7 51 CO 00013 ADDL O_VBN, 20(AREA po ; 0578 
56 18 A? DO 00017 MOVL 2aTAREA DESC) ; 0579 
18 A? 51 CO 0001B ADDL2 “FO CAREA. DESC) : 0583 
55 18 Ad D0 O001F MOVL Metab BS, R5 > 0584 
0096 0 00023 BSBW RMSMAKSUM 3 
OA A4 0 8 00026 BISB2 #3, 10(BDB) ; 0586 
53 02 8 002A MOVL #2 ; 0588 
00006 0 0002D BSBW §RMSRELEASE : 
3 11 000 BRB re} 3 
50 1 00 00032 1$: MOVL #1, RO ; 0592 
2C BA 00035 2$: POPR #*M<R2,R3,R5> 3 0594 
05 00037 RSB 3 
; Routine Size: 5 bytes, Routine Base: RMS$RMS3 + 012B 
| 
| 


H 11 
16-Sep-1984 01:36:15 AX-11 Bliss-32 V4.0-74 Pp 1 
12-88-1382 04:30:13 AMS SROIRE ALLBKT.B32; 7 (7 


RMSALLBKT 
vO4~000 
8 XSBTTL. 'GET_VBN' 

ROUTINE GET_VBN (AREA_NO) : RLS$GET_VBN = 


'+4 
' 


FUNCTIONAL DESCRIPTION: 


; 


This routine attempts to allocate VBN's from the current extent, next it 
tries the next extents and then lastly extends the file. 


i CALLING SEQUENCE: 
GET_VBN(AREA_NO) 
i INPUT PARAMETERS: 


OOooooooocono 
OWONOUES WO 


AREA_NO = area number to allocate VBN from 
i IMPLICIT INPUTS: 
IRAB - address of internal RAB 
i QUTPUT PARAMETERS: 
None 


i IMPLICIT OUTPUTS: 
VBN - VBN to use for bucket 
i ROUTINE VALUE: 

None 


' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
i 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
one 
leu 


BEGIN 


LOCAL 
STATUS; 


GLOBAL REGISTER 
AREA_BESC’'= 7  : REF BBLOCK; 


C0 C9 OD CO.0D OD SI NIN NS SN NS SNS SOA A AAA AAO NII III BB EPP PEP 


y a 


i SIDE EFFECTS: 
N 
| 


Dwnl ah ah ah ab sb Ab Ah Ab Ab Ab Ab db db db db db db bbedb db bh db th dh dh ob dh ah ah ah sh dh ah dh ah ah Ab sb ah ah ah ah ah ah ah al al ah a dh dh ah dl sh al eal 


Be Be Se Se Be Se Se Be Be Be Se Se Ge Ge Be Ge Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Se Ge Ge Se Gs Se Ge Se Se Se Se Ss Ge Ge Se Se Ge Se FH S4 SH Se Se Se Sees 


PRO ODWOA UNE WIN 2 OOONO UE WN O OONOAU EWN —" OOONO UE WN O 


64 
re EXTERNAL REGISTER 
064 COMMON _RAB_STR, 
B64 VBN = 6; 
8 964 IF .IRAB C IRBSL_NXTBDB J NEQ 0 
8 64 THE 
3 6 RETURN RMSERR( BUG ); 
6 RETURN_ON_ERROR( RMSLOCK_AREA( .AREA_NO ) ); 
9 65 


' Examine the primary and secondary extents | 
| 


veh 


; 595 6 

. 3 654 
3 39 655 
; 598 6 § 
BB 
: 601 6 § 
; 60 660 
; 60 661 
; 604 296 
; 605 066 
3 one 664 
; & 665 
: 608 008 
; 609 66 
; 610 0668 
; 611 0669 
3 ole 0670 
; 61 0671 
; 614 pore 
s 615 067 
3 olg Bere 
s 61 675 
; 618 Bors 
; 619 067 
3 650 678 
: 621 679 
3 ose 0680 
; 62 0681 
: 624 068 
: 625 068 
: 626 0684 
; 627 0685 
; 628 0686 
3 o6) 0687 
; 630 0688 
3 651 0689 
3 O36 0690 
; 63 0691 
3; 634 8036 
3; 635 P 069 
; 636 P 0694 
; 637 P 0695 
3 O38 P 069 
; 639 P 069 
; 640 698 
3 641 699 
: 646 700 
: 64 701 
3 644 88 
3; 645 7 

; 646 704 
: te Oe 
; rk 7 $ 
; 650 708 
; 651 709 


11 
14. -Sep- 4 01: 36: 15 AX-11 Bliss-32 V4 .0-742 
14-Sep p-13 4 RMS. SRCJRM3ALLBKT.B32; 
! 
WHILE 1 
DO 
BEGIN 
RETURN_ON_ERROR( CHECK_FOR_ROOM() ); 
IF .VBN NEQ 0 
HEN 
RETURN 1; 
AREA_DESC C AREASL_NXT ) EQL 0 
EXITLOOP; 
AREA ~pest AREASL_CVBN J 


If . 
THEN 


-AREA_DESC ( AREASL_NXT J; 


AREA-DESC [ AREASL~CNBLK J =: SAREA-DESC € AREASLINXBLK J; 
AREA_DESC AREASL_USED = 
AREA-DESC [£ AREASL-NXTVBN J = VAREA_DESC C AREASL_CVBN J; 
AREA-DESC £ AREASL— = 0; 
AREA-DESC C AREASL-NXBLK J = 0; 
END; 
The file must be extended. Lock VBN 1. 
BEGIN 
LOCAL 
SAV_BDB; 


GLOBAL REGISTER 
R_BKT_ADDR_STR; 


Raise the file lock to kick out people doing file operations 
RETURN_ON_ERROR( RMSRAISE_LOCK() ); 
SAV_BDB = .BDB; 


RETURN_ON_ERROR( RMSCACHE(1, 0, 
CSHSM_NOREAD 


CSHSM_LOCK 
CSHSM_NOBUFFER ) ); 
IRAB C IRBSL_NXTBDB ) = .BDB; 


BDB = .SAV_BDB 
END; ! end of local definition of SAV_BDB 
BEGIN 
CAL 
STARTVBN, 


ENDVBNP1; 


wef 


—— ] 
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RM3ALLBKT 16-Sep-1984 AX-11 Bliss-32 V4.0-74 Page 18 
voe-000 GET_VBN 14- ~Sen" 1382 9}: 39] RMS.SRCIRMSALLBKT. Bane . (7) | 
: 653 710 | : 
: ? i ap : Do the extend : 
; 655 ig IF STATUS = RMSALLOC3 ( .AREA_DESC; STARTVBN, ENDVBNP1 ) ; 
; 6 8 714 THEN ; 
3; § 715 4 BEGIN 3 
; 658 rig 4 3 
; 659 717 4 ' Update EOF block of file attributes | ; 
; 660 718 4 { 5 
3; 661 719 4 re IFBSL_EBK J] = = -ENDVBNP1; 3 
: oe 4 y ? IFAB C IFBSL_HBK »ENDVBNP1 = 1; : 
; 664 OF § 4 ' To keep the total allocation correct, we must distinguish between ; 
; 665 7 4 i files that did not have this field defined when they were created, ; 
; 666 724 4 i and those that did. If the TOTAL -ALLOC field is not zero, then it 3 
; 667 725 4 i is anew file. If it is zero, check the VBN of the extents. If : 
; 668 726 4 i they are both zero, Bi. the area has never been extended, and the $ 
: 669 0727 & i allocation can be computed correctly. ; 
; 670 Bf 8 4 i r 
: 671 729 4 3 
; 67 0730 4 a a at DESC CAREASL_TOTAL_ALLOC] NEQ 0 $ 
; 67 0731 a DESC CAREASL ya’ ML OC EQL 0 F 
3; 674 0732 AREA_DESC CAREASC_C oe : 
3 of? bee : ‘ -AREA_DESC PAREASL VAKiVEN EQL 0 ) : 
3; 677 0735 4 AREA_DESC ara aoe TOTAL_ALLOC) = .AREA_DESC CAREASL_TOTAL_ALLOC) : 
; 678 or 38 4 -ENDVBNP1 = .STARTVBN J; : 
; 679 07 4 3 
; 680 8785 4 ! Update the rest of the area descriptor. ; 
; 681 0739 4 i 3 
; 682 0740 4 AREA_ DESC AREASL_CNBLK_J = .ENDVBNP1 - .STARTVBN; ; 
; 683 0741 4 AREA_ “DESC AREASL_USED } = 0; 3 
> 684 0748 4 AREA-DESC £ AREASL-CVBN = .S$TARTVBN; ; 
; 685 074 4 AREA_ DESC AREASL_NXTVBN J = ,STARTVBN; ; 
; 686 0744 4 AREA_ “DESC AREASL_NXT = Q; ; 
; 687 0745 4 AREA_DESC C AREASLINXBLK J = 0; ; 
; 688 368 4 3 
; 689 0747 4 STATUS = CHECK_FOR_ROOM(); ; 
; 690 0748 4 3 
; 691 0749 5 IF .STATUS AND ( .VBN EQL 0 ) 3 
; 69 0750 4 THEN 3 
; 69 0751 5 BEGIN 3 
; 694 fet) : pp ted pees E : 
3 695 079 STA TUS = SAS tRR (FUL): : 
3; 696 754 «4 3 
3; 697 0755 4 3 
; 698 b589 4 END 3 
3 144 75 LSE 3 
; 700 758 RMSRELEASE( 0 ) ; 
; 701 759 3 
: 70 760 END; ; 
: 70 761 : | : 
3 oe oe If caller doesn't have VBN 1 locked for it's own usage, then unlock it. : 
3 706 764 BDB = .IRAB C IRBSL -NXTBDB J; ; 
; 20 765 TRAB C”IRBSL_NXTBDB™) = 0; | : 

| 

| 


1 
vOeebOe GET_VBN 1exgep= 1884 TSidti13 — EAMS SREIRMSALLEKT 032; te 


; 709 767 IF .B8DB NEQ .JRAB C IRBSL_LOCK_BDB ) ; 
; 710 76 THEN 3 
; ay i: RMSRELEASE( 0 ); ; 
3 ig 77 ! If everything worked then lower the file lock (if they didn't then ; 
; 714 ure ' we are on the way out anyway 5 
s 715 77 ! 3 
3 rig 774 IF .STATUS 3 
; 71 775 THEN 3 
: 718 £06 STATUS = RMSLOWER_LOCK(); : 
>: 719 77 ; 
; 720 8 RETURN .STATUS ; 
s 721 77 : 
: 722 0780 1 END; ; 
00BC 8F BB 00000 GET_VBN:PUSHR #*M<R2,R3,R4,R5,R7> : : 

SE 04 C2 00004 SUBL2 #4, : ; 

3c OAD COD 90007 TSTL  60(IRAB) : : 

07 13 OOO0A BEQL si : ; 

50 8434 8F 3C 0000C MOVZWL #33844, RO ; : 

18 11 00011 BRB 3$ : ; 

1c AE pp 00013 1$: PUSHL AREA_NO : ; 

0000v 30 00016 BSBW RMSLOCK_AREA ; 3 

SE 04 CO 00019 ADDL2 #4, $ ; ; 

38 50 €9 0001C BLBC STATUS, 6$ : ; 

A7 10 OOO1F 28: BSBB §- CHECK_FOR_ROOM ; ; 

33 50 €9 00021 BLBC STATUS, 6$ : F 

56 D3 00024 TSTL =‘ VBN : : 

06 13 00026 BEQL © 4$ : : 

50 01 06 00 8 MOVL #1, RO ; ; 

OOAF 31 0002B 3$: BRW 13$ : ; 

“« «a D3 900 E 4$: TSTL gB(AREA_DESC) ; F 

12 13 00031 BEQL $ : ; 

Oc A? 1¢ =A? 7D 00033 MOVG g (AREA DESC), 12(AREA_DESC) ; : 
14 AZ D4 00038 CLRL O(AREA-DESC) ; : 

18 A? OC A? b0 00058 MOVL Ve CAREA-DESC) , 24(AREA_DESC) : ; 
1¢ a? 7C 00040 CLRO : (AREA~DESC) ; F 

DA 11 00043 BRB $ ; : 

00006 30 00045 5$: BSBW sa RMSRAISE LOCK ; : 

EO 0 E9 0048 BLBC STATUS, 3 ; : 

6 4 D 4B MOVL BOB. SAV_BDB : : 

5 D b0 OO4E MOVL #13, R3 ; F 

51 1 B $ mova #1 ; 3 

00 0G 30 00054 BSBW §RMSCACHE : 3 

D1 50 €9 99 7 6$: BLBC STATUS F : 

3c OA 54 DO 0005A MOVL  BDB, 60(1RAB) ; : 
54 6 p 6 3 MOVL SAV_BDB ; : 
00006 6 BSBW RMSALLOC3 : ; 

55 D 0 64 MOVL RQ, STAT ; : 

53 D 067 MOVL R2. R : : 

4C E9 OO06A BLBC STATUS, 9$ ; ; 

74 AA DO 9060 MOVL ENDVBNPI 116(1F AB) ; 3 
70 AA FF 63 OE 1 MOVAB =-1(R3), 112(¢1FAB) ; : 


| 
11 
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voe-600 GET_VBN 1o= ee 882 04:38:] RMS. SRCIRMS3ALLBKT .B32; . (3 
32 A705 0076 TSTL  $QCAREA_DESC) : 0730. ; 
OA 1 7 BNEO : : 
0c A? OD 7B TSTL  12(AREA_DESC) : 0732 ; 
0b 1 7 BNEG $ : ; 
18 A? OOD TSTL 4 (AREA_DESC) + 0733 ; 
08 12 00 BNEG $ : F 
52 53 1 C3 00085 7$ SUBL3. STARTVBN, ENDVBNP1, R2 + 0736 ; 
3 «CA? 3 ¢ 6 9 ADDL2 2, SOCAREA DESC) : ; 
10 a? 53 es. a8 SUBL STARTVBN ERDVBNP1, 16(AREA_DESC) > 0740 ; 
14 AZ D4 0009 CLRL O(AREA_DESC) + 0741 ; 
Oc A? 51 D0 0009 MOVL § STARTVBN, 12(AREA_DESC) > 074 : 
18 «=A? 51 b0 0099 MOVL START VBN 4 (AREA~DESC) * 074 ; 
1c =A? f 0090 CLRO 8(AREA_DESC) t 0744 : 
FFg3 3 S000 BSBW § CHECK_FOR_ROOM + 0747 ; 
55 ? DO OOOA MOVL RO, STATUS : 3 
15 55 £9 O00A6 BLBC STATUS, 10$ + 0749 ; 
56 DS 000A9 TSTL -VBN : ; 
11 12 OOOAB BNEG 198 ; : 
53 04 OOOAD CLRL : 0752 F 
00006 30 SO0AE BSBW SRELEASE : : 
55 8544 BF 3¢ 00B¢ MOVZWL #34116, STATUS : 0753 ; 
03 11 9008 BRB $ : 0713 ; 
3 Be 00B9 9$: CLRL R3 ; 0758 3 
00006 30 00088 BSBW §$RMSRELEASE : ; 
54 3c ~6=OAD-s«#DO OOOBE 10$:  ## MOVL 60(IRAB), BDB + 0764 ; 
3¢ = ADS 000C CLRL 60(1RAB) : 0765 ; 
0084 C9 54 01 000C CMPL DB, 132(1RAB) : 0767 F 
05 13 OO0CA BEQL 11$ : ; 
53 pb 000CC CLRL = R33 : 0769 F 
00006 0 OOOCE BSBW § RMSRELEAS : ; 
06 5 &9 00001 11$:  BLBC STATUS, 12$ : 0774 ; 
00006 30 00004 BSBW § RMSLOWER LOCK : 0776 ; 
55 50 00 00007 MOVL RO, STATOS ; : 
50 55 DO OOODA 128: MOVL STATUS, RO : 0778 : 
5E 04 CO 000DD 138: ADDL2 #4, SP : 0780 ; 
00BC 8F BA OOOEO POP #°M<R2,R3,R4,R5,R7> : ; 
5 000E4 RSB ; ; 
; Routine Size: 229 bytes, Routine Base: RMS$RMS3 + 0163 ; 
; 723 0781 1 $ 


M11 | 
RMSALLBKT 16-Sep-1984 01:36:15 VAX-11 Bliss-32 v4.0-74 : | 
FOeebb0 RMSAL_FRMT_BKT Er eeen ee tbat TS tee es Sear rent 935, age 6 


eo 


: 725 7 j 1 XSBTTL ‘RMSAL_FRMT_BKT' | : 
; If : f Z i GLOBAL ROUTINE” RMSAC_FRMT_BKT (AREA_NO, NO_BYTES) : RLSRABREG_7 = ‘ 
; 738 785} iss | 
; 729 07 § 1! | : 
; 7350 gf 1 ! FUNCTIONAL DESCRIPTION: Fy 
; 73) 788 (1! This routine gets a bucket allocated in the given area. The bucket is : 
; f ¢ gf 8 ! } cleared for its entire length and then the basic formatting is done. : 
: 734 0791 1 { CALLING SEQUENCE: | ; 
3 4 5 0735 : RMSAL_FRMT_BKT(AREA_NO, NO_BYTES) : 
s 7 5 0794 1 ! INPUT PARAMETERS: | ; 
3; «738 795 1! AREA_NO = area number to allocate bucket from ; 
3; 739 0796 1! NO_BYTES = number of bytes in bucket ; 
; 740 fad 1! : 
3: (741 798 1°! IMPLICIT INPUTS: 5 
3; «74 0799 1! IRAB - address of internal RAB : 
3; «674 0800 1! RAB - address of user RAB ; 
: 744 0801 1! IFAB - address of IFAB needed for 1/0 and prologue version 3 
3; 745 0802 1! IMPURE = address of impure region(needed for 1/0) $ 
3 oe tt : IDX_DFN = index descriptor to get key of reference : 
; 748 0805 1 ! OUTPUT PARAMETERS: ; 
3: 749 0806 1! None 3 
; 750 0807 1! : 
3 Tl 0808 1 ! IMPLICIT OUTPUTS: , 3 
: 752 0809 1! IRABCIRBSL_NXTBDBJ - address of BDB describing newly allocated and ; 
s 755 0810 1! partially formatted bucket 5 
3; 754 0811 +1! : 
3 9 pats 1 ! ROUTINE VALUE: : 
3; 756 0813 1! Various 1/0 errors, extend errors : 
3 for 0814 1! 3 
; 8 0815 1 ! SIDE EFFECTS: : 
3; tf? 0816 1! } : 
; 760 0817 1! If the ISAM file is being BI Journalled, then the formatted portion of : 
; 761 0818 1! the new bucket will have been moved into the BI Journalling buffer : 
: 166 0819 1! associated with the BDB controlling the bucket. : 
; 76 0820 1! : 
3; 764 0821 1 !-- 3 
3 £65 Bas6 1 | : 
; 766 082 BEGIN | 3 
3; 767 0824 3 
; 768 bese EXTERNAL REGISTER : 
3; 769 0826 OMMON_RAB_STR, | : 
: 770 0827 R_IDX_BFN_STR; : 
3; 7 0828 | : 
2 77, t34 GLOBAL REGISTER 3 
: OB COMMON_IO_STR, : 
3: 774 831 = 6; | 3 
3 > peas : 
; r76 08 ? RETURN_ON_ERROR ( GET_VBN( .AREA_NO ) ); : 
: 778 P B35 RETURN_ON_ERROR (RMSCACHE(.VBN, .NO_BYTES, : 
> 779 P 08 6 CSH$M_NOREAD : 
: 780 P 083 OR : 
; «(781 0838 CSHSM_LOCK)); 3 


JNL BUCKET : REF BBLOCK; 
JNL eg -BBLOCKC..BOBCBDB$L_B1_BDB), BDBSL_ADDR] + eunet pn 
5 .BKT “ADDREBKTSW_ FREESPACET, .BKT ADDR, .JNL_BUCKET 
RETURN 1; 
END; 


] 

N 11 
RM3ALLBKT 16-Sep-1 6:15 AX-11 Bliss-32 V4.0-74 P 
voz-000 RMSAL_FRMT_BKT 14-Sep- B71 984 93; 93] RMS. SRCIRM3ALLBKT.B32; — BS | 
3 39 
: 4 IRABCIRBSL axTece) = .BDB; 
; ? BDBLBDB$V_VAL) = 1; ! mark the new bucket valid | 
3 Bee ; Set up the bucket overhead fields | 
; O84 FORMAT_BKT( .AREA_NO, 1, .NO_BYTES ); | 
; 084 ! If this ISAM file is being B1 Journalled, then after formatting the bucket | 
3 084 i move the formatted portion into the Bl Journal record buffer controlled by | 
: Bae the B]1 BDB associated with the BDB for the new bucket. 
; 0 3 if .IFABCIFBSV_B1) 
: 085 BEGIN 
; 085 
; 085 LOCAL 
3 085 
3 085 
3 085 
; 085 
; 086 
3 0 
; 0 
3 0 
3 0 


448 o Bete tte ty ty te 


007C 8F BB 00000 RMSAL_FRMT_BKT: | 
PUSHR WNER, ars. R4,R5,R6> ; 0783 
18 AE DD 00004 PUSHL AREA ; 0833 
FF11 30 00007 BSBW GET ‘BN : 
SE 04 CO OO000A ADDL2 #4,7SP : 
41 50 £9 0000D BLBC STATUS, 2$ 3 
53 05 DO 00010 MOVL 3° : 0838 
52 1¢ AE DO 00013 MOVL NO BYTES, R2 : 
51 56 p60 00017 MOVL VBR, R1 : 
00006 30 OO01A BSBW RRSCACHE : 
31 50 £9 0001D BLBC STATUS, 2$ ; 
3c OAD 54 DO 00020 OVL DB, 60(IRAB) : 0840 
OA AG 01 88 00024 BISB2 #1, 10(BDB) + 0841 
1C AE ODD 028 PUSHL O_BYTES : 0845 
01 DD 90028 PUSHL a : 
20 AE p 002D PUSHL : 
FE3 000 9 BSBW FORMAT BKT : 
SE O¢ C 600 ADDL2 ; 
OOAO «(CA 02 €1 0036 BBC Ae 18 “180c1FABD, 1$ > 0851 
50 30 AG DO 09 ¢ MOVL : 0858 
18 AQ 00000044 8F ci 04 ADDL p68” MB iRG, JNL_BUCKET ; 
65 04 AS 8 00049 MOVC 4(BKT ADDR), (BKT ADDR), (JNL_BUCKET) ; 0859 
50 1 00 OO4E 1$: MOVL #1, R : 0862 
007C F BA 00051 2$: POPR #°M<R2,R3,R4,R5,R6> ; 0864 
05 00055 RSB : 
| 


; Routine Size: 


; 808 


RMSAL_FRMT_BKT 
86 bytes, 


0865 1 


Routine Base: 


RMSRMS3 + 0248 


138 


Sep-1 
=tep-t 


Be PS3Fi13 


AX-11 Bliss-32 V 
RMS.SRCJRMSALLBK 


4.0-74 
T.B32; 


roe 
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Length as the previous one. It's forward Link becomes that of the previous 
one whereas the prepreue one's forward Link is the newly allocated bucket. 
If the previous bucket was the last bucket on that level then the new 


and the level of the bucket preceding it. The new bucket has the same | 
| 
bucket becomes the Last. 


BEGIN 


EXTERNAL REGISTER 
COMMON_RAB_STR, 
R_IDX_BFN_STR 


PPADS ITI 
NOUSWN —OOOn 
~o 
— 
oO 


. 
° | 
| 
| 


o 


LOCAL 
BUCKET : REF BBLOCK 
PREV_BKT : REF BBLOCK; 


PREV_BKT = .BBLOCKC.IRABCIRBS$L_CURBDB], BDBSL_ADDRI; 


MEW —OO® 
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RMSALLBKT 1-56 -1984 01:36:15 AX=11 Bliss-32 V4.0-742 Page 24. RMS 
v04-000 RMSALLOC_BKT 12780871 384 HARE AMS SREIRA ALLBKT.B32;1 " & v04 
; 810 866 1 XSBTTL "RMSALLOC_BKT' : 
; i] 6 GLOBAL ROUTINE RMSALLOC_BKT : RLSRABREG_7 = : 
: 18 &3 1 {+4 : 
; 814 1} | : 
; 815 71 1 =! FUNCTIONAL DESCRIPTION: ; 
3 1$ ie eg This routine allocates and formats a bucket for use by index sequential ‘ 
; 81 0875 1! iles. ‘ 
; 818 0874 1 | : 
; 819 0875 1 ! CALLING SEQUENCE: ; 
; 820 bare 1! RMSALLOC_BKT() ; 
; Hy 1 +4 1 ! ‘ 
; ; 76 1 ! INPUT PARAMETERS: ; 
; 8 0879 1! None ; 
; 824 Rees 1 } ‘ 
; 825 rt 1 ! IMPLICIT INPUTS: : 
; 826 08 ¢ 1! IDX_DFN - address of index descriptor for current key of reference ‘ 
; 827 0885 1! IRA - address of internal RAB | ‘ 
; 828 0884 1! CURBDB - address of BDB describing bucket which precedes bucket ‘ 
: 4 0885 1! about to be allocated and formatted ‘ 
; 830 0886 1! IFAB - address of IFAB needed for I/0 and prologue version ‘ 
; 83) 0887 1! IMPURE - address of impure Lester ( needed for 1/0) ; 
; Hh 0888 1! RAB - address of user's RA ; 
; 83 0889 1! ‘ 
; 834 0890 1 ! OUTPUT PARAMETERS: . 
; 835 0891 1! None ; 
; 836 444 7% 
; 837 0893 1 ! IMPLICIT OUTPUTS: 
; 838 0894 1! IRAB 
; 839 0895 1! NXTBDB = address of BDB describing newly allocated and formatted 
; 840 0896 1! bucket 
; «841 0897 1! 
; ate 0898 1 ! ROUTINE VALUE: 
; «84 899 1! Various 1/0 and extend errors 
> B44 900 1! 
; 845 0901 1 ! SIDE EFFECTS: : 
; 846 090 : The new bucket is allocated from the area described by the index descriptor 
; 1 i 
; 1! 
5 1! 
5 1! 
; 1 ! 
: 1 !- 
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D 12 
16-Sep-1 6:15 AX-11 Bliss-32 V4. 
14- Sep=1 38 9f: 0%: 812 RMS. SREIRMALLBKT 8 933! 
! The area number is either the data area number, the lower index area 
i number or the index area number. This is done in a tricky way taking 
advantage of the way the area numbers are allocated in memory. 
BEGIN 


LOCAL 
AREA_NO; 


AREA_NO = .PREV_BKTCBKT$B_LEVEL); 
IF .AREA_NO GTRU 2 
AREA_NO = 2; 
AREA_NO = .(IDX_DFNCIDX$B_DANUM] - .AREA_NO)<0O, 8>; 


! First try to reclaim a bucket from the AVAIL List, if that fails 
try the extent logic. 


IF NOT RECLAIM alt -AREA_N 
+BBLOCE C= 1RABLIRBSL. CURBDBI, 


THEN 
RETURN_ON_ERROR 7 (AMSA FRMT -BKT(. AREA_NO, 
-BBLOCKE TRBSL~CURBDBI, 
BDB$W_NUMB))); ~ 


END; ! end of LOCAL definition 
BUCKET = s0BLOEKL qt ine NXTBDBJ, BDBSL_ADDRI; 
BUCKETCBKT$B_LEVEL] = v_BK TEBKT $8 LEVELT; 


BUCKETCBKTS$L— rattan =" PPRED 6 ie BKTSCCN 
PREV_BKTCBKTSL_NXTBKT) = MRBCOCK 


IF _ .PREV_BKTCBKT$V_LASTBKTJ 
THEN 


BkT); 
IRABCIRBSL _NXTBDBJ, BDBSL_VBNI; 


BEGIN 
BUCKETCBKT$V_LASTBKTJ 


= 1; 
prev BKTCBKTSV_LASTBKT] = 


"0; 


RETURN 1; 
END; ! end of routine 


OC BB 00000 RMSALLOC_BKT:: 
PUSHR 


#°M<R2,R3> 
51 20 a9 i 0002 MOVL 2(1RAB) R1 
2 0006 MOVL (R1), PREV_BKT 
0c MY OO0A MOVZ2BL 12(PREV_BKT)> AREA_NO 
02 Dt 0000E CMPL  AREA_NO> #2 
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; 915 970 1 XSBTTL ‘RMSLOCK_A ; 
3 318 af } GLOBAL ROUTINE RAS BCK AREA (AREA_NO) : RLSLOCK_AREA = ; 
: 218 975 1 !+44 H 
; 91 974 1 | ; 
: 920 975 1 | FUNCTIONAL DESCRIPTION: 5 
; 921 ars 1 i This routine locks ine area prologue block for this area descriptor ; 
; § 444 : and makes a few basic checks on its validity. | : 
; 924 979 1 | CALLING SEQUENCE: ; 
; 4 5 st ! RMSLOCK_AREA(AREA_NO) : 
3; 9 5 HY 1 | INPUT PARAMETERS: 3 
; 928 983 1 | AREA_NO = area number to lock ; 
: 929 0984 1! H 
; 950 0985 1! ImPLICIT INPUTS: : 
; 931 0986 1! one 3 
3 O36 0987 1! $ 
3; 95 0988 #1 i OUTPUT ens : 
; 934 0989 1! Non 3 
3 9355 0990 1! : 
; 936 0991 1 | IMPLICIT OUTPUTS: : 
3; 937 3434 1 i - address of lock BDB ca ‘ 
; 938 0993 1! AREA_DESC - address within buffer of specified area . 
: 939 0994 1: : 
: 940 0995 1 | ROUTINE VALUE: | ; 
3; 941 099% 1! 1 = success : 
; are 0997 1! AID - bad area number ; 
3; 94 0998 1: L - read error on prologue block ; 
3 944 0999 1! various hardware errors ; 
; 945 1000 1! : 
3; 946 1001 1 ! SIDE eerecTat : 
: 947 1908 1: ; 
; 948 1003 1! : 
3; 949 1004 1 i- : 
; 950 1005 1 ; 
s 931 1006 BEGIN 3 
3 926 1007 3 
; «95 1008 EXTERNAL REGISTER : 
; 954 1009 COMMON_RAB_STR, : 
; 955 1010 R_BDB_STR, 3 
; 956 1011 AREA_BESC = 7  : REF BBLOCK; : 
; 957 Ole 3 
3 38 191 LOCAL 3 
; 95 1014 AREA_VBN; 3 
; 960 1015 3 
; 961 1016 IF .AREA_NO<O, 8> GEQU .IFABCIFBSB_AMAX) ! check range of input ; 
: 306 1017 THEN § 
; 96 1018 RETURN RMSERR(AID); 3 
: 964 1019 

; «965 H+ ? Calculate the VBN in which this area descriptor is located 

; 367 8 § AREA. VBN = (,AREA_NO/8) + Pritt AVBN); 

3 208 + i AREA_DESC = .AREA_NO AND %x'00000007' 

3 396 1025 ' Lock VBN containing area descriptor. 

3 «971 1026 ! 


12 
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3 9 ! 7 BEGIN 
; 974 1 § GLOBAL REGISTER 
3 : 5 } » R_BKT_ADDR_STR; 
3 ? ? i § RETURN_ON_ERROR (RMSCACHE(.AREA_VBN, 512, CSHSM_LOCK)); 
: 979 1034 ! Set buffer invalid so that changes made to area descriptor need not be 
; oat 18 5 backed out. 
3 oe6 16 § BDBCBDB$V_VAL) = 0; 
: 384 1085 RETURN_ON_ERROR ( RMSCHKSUM(), RMSRELEASE(O) ); 
; 13e3 } calc location in buffer of area desc 
; 988 1068 AREA_DESC = (.AREA_DESC*AREASK_BLN) + .BKT_ADDR; 
; 989 1044 END; 
; 990 1045 
; 1046 IF .AREA_DESCCAREASB_AREAID] NEQ .AREA_NO<O, 8> 
; 1047 THEN 
3 1048 BEGIN 
3; 6994 1049 RMSRELEASE (0); 
; 995 1050 RETURN RMSERR(PLG); 
; 996 1051 2 END; ! end definition of BKT_ADDR 
; 997 1926 
; 998 105 RETURN 1; 
; 999 1054 
3; 1000 1055 1 END; 
7E 55 7D 00000 RMSLOCK_AREA:: 
MOVQ RS, -(SP) 3 
0081 CA 0c AE 91 00003 CMPB AREA_NO, 177(1F AB) ; 
07 1F 00009 BLSSU 3 
50 83F4 8F 3C 000 MOVZ2WL #33780, RO ; 
56 11 0001 BRB 4 3 
50 0c AE 08 (C7 BRIS 1$ DIVL3 #8, AREA_NO, RO 3 
51 0080 CA 9A 0001 MOVZBL 176(IFABY, AREA_VBN : 
51 50 CO O001C ADDL2 RO, AREA_V 5 
57 Oc AE 03 0 EF OO1F EXT2V #0, #3. KREA_NO, AREA_DESC ; 
1 pO 00025 #1, R 3 
52 0200 8F 3C 00028 MOVZWL #512, R2 ; 
00006 30 000 RMS CACHE ; 
35 4 9 000 BLBC STATUS, 4$ ; 
OA AG 1 8A 000 BICB2 #1, 10(BDB) : 
00 0G BSB $cHKSUM ; 
56 1) A MOVL RO ad 3 
OA £ D BLBS = STATUS, ; 
Be 4 CLRL R : 
00006 4 BSBW eit eet 3 
50 6 D 4 MOVL STATUS, R 3 
1€ 11 4 BRB 4 ; 
50 57 06 78 4A 2% ASHL #6, AREA_DESC, RO : 


H 12 
RM3ALLBKT 16-Sep-1984 01:36:1 AX-11 Bliss-32 V4.0-74 p 9) 
yoen006 RMSLOCK_AREA 12: -Sep- at OF:39:] ; RMS. SRCIRM3ALLBKT.B32; 20e 163 | 
57 50 55 1 4 ADDL3  BKT_ADDR, RO, AREA_DESC : | 
OC AE o2 AF ¥ CMPB (AREA_DESC), AREA-NO > 1046 | 
ss 4 9 cee © + 1049 
009 G 30 g BSBW RUSRELEASE : | 
50 861 f t MOV ZUL #3 “e ; 1050. 
50 0 bo 08 3$: MOVL #1, RO + 1053 
E p 68 4$: MOVG (SP)+, R5 > 1055 
05 00068 RSB : | 
; Routine Size: 108 bytes, Routine Base: RMS$RMS3 + 0307 
; 1001 1056 1 | 
; 1008 1057 1 END 
; 100 1058 1 
; 1004 1059 0 ELUDOM 
; PSECT SUMMARY | 
: Name Bytes Attributes 
RMSRMS3 883 NOVEC,NOWRT, RD, EXE,NOSHR, GBL, REL, CON, PIC,ALIGN(2) | 
: Library Statistics | 
Boe etcetera oS ce, a Symbols -------- Pages Processing 
A File Total Loaded Percent Maoped Time 
$ _$255$DUA28:CRMS.OBJIRMS.L32;1 3109 78 2 154 00:00.4 
| 
; COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:RM3ALLBKT/OBJ=0BJ$:RM3ALLBKT MSRC$:RM3ALLBKT/UPDATE=(ENHS:RM3ALLBKT) | 
: Size: 883 co + 0 data bytes | 
3; Run Time: 8 : ‘ 
; Elapsed Time: 745, 
3; Lines/ in: 884 
3 ponence (Ania 18642 
; ry Us 124 pages 
3 — otlen Complete 


